home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / misc / adhelp10.lha / ADHelp10 / rexx / ADHelp.ced next >
Encoding:
Text File  |  1994-06-11  |  722 b   |  52 lines
  1. /* rexx-scrip for CED to use ADHELP */
  2. /* start this script from CED */
  3.  
  4. OPTIONS results
  5.  
  6. ADDRESS "rexx_ced"
  7.  
  8. status CURSORMEMORYX
  9. Spalte=result
  10.  
  11. status LINEBUFFER
  12. Zeile=result
  13.  
  14. ADDRESS ADHELP
  15.  
  16. Help BYTEOFFS Spalte STRING Zeile
  17. erg=result
  18. if rc>0 then
  19. erg="TEXT ADHelp: needed argument missing!"
  20.  
  21. ADDRESS "rexx_ced"
  22.  
  23. if left(erg,5)="TEXT " then
  24. do
  25.     erg=delstr(erg,1,5)
  26.     okay1 erg
  27. end
  28. else
  29. if left(erg,5)="FILE " then
  30. do
  31.     Open new
  32.     erg=delstr(erg,1,5)
  33.     'Open...' erg 1
  34. end
  35. else
  36. if left(erg,7)="SELECT " then
  37. do
  38.     Open new
  39.     erg=delstr(erg,1,7)
  40.     'Open...' erg 1
  41. end
  42. else
  43. if left(erg,7)="INCLUDE " then
  44. do
  45.     Open new
  46.     erg=delstr(erg,1,8)
  47.     byteoffs=word(erg,1)
  48.     erg=delword(erg,1,1)
  49.     'Open...' erg 1
  50.     'Jump to byte' byteoffs
  51. end
  52.